﻿Public Class MessageBlock
    Public Id As Integer
    Friend Type As String
    Public Message As String
    Public BinaryData() As Byte
    Public Target As String

    Friend Function GetPayloadSize() As Integer
        Dim iRet As Integer = 0
        If Message IsNot Nothing Then iRet += Message.Length
        If BinaryData IsNot Nothing Then iRet += BinaryData.Length
        Return iRet
    End Function
End Class
